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EDTSUFBUFFER = find a buffer 19-3¢ 
e 


=1984 01:59:1 VAX-11 Bliss-32 V4.0-74 Page 1 
~ eats 1 93:33:18 TIER SUMGHARTERSCEDT SRCTUFBUFFER.OLI-4” (1) 
1 ZTITLE “EDTSUFBUFFER = find a buffer’ 
§ MODULE EDTSUFBUFFER ( ' Find a buffer 
oe = *'v04-000' ! File: UFBUFFER.BLI Edit: JBS1005 
= 


BEGIN 


SRO R RRA REAR A AAA AAAAATEAAHEEEA EAE EATEAEA RE RAAAEAAAEREREAEEAEEEHEAEAAAEE 


'# COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
i DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
't ALL RIGHTS RESERVED. 


ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN A DANCE WITH E H 


fa 

i, a-§ 

; 5 

3 ° 1 

; 1 

3 8 1 

; 9 1 ® 
; 0010 1 * 
2 ie 
3 ® 
ig og * 
s; 0014 1 !* CCOR TERMS SUCH LICENSE AND WITH THE * 
ey 0015 1 '* INCLUSI F THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHE * 
sey 10 00 $ 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
sa 97 0017 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
3 3 St : ps TRANSFERRED. * 
4 ‘@ fe 
; $9 0020 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
; 1 0021 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
$ $§ BR § : he CORPORATION. * 
Ps | Mil 7 
: Si 00 4 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
3 $2 00 2 : 7 SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
: : tt 
; e7 § 7 1 Ie fe 
: 28 0028 1 Nea ee eae eee eae Re R AERA AA AE AA RATER A AERA AEA A AERA EREAEKEAREREREE 
: 9 0029 1! 

3 0 $080 1 

; 1 0031 1 !4+4 

; ¢ Bo 36 1! FACILITY: EDT -- The DEC Standard Editor 

‘exe 00 & 

; 7 Boe ’ } ABSTRACT: 

: $ 44 : Find a buffer, given its name. A buffer is created if necessary. 

: 3 0038 : ! ENVIRONMENT: Runs at any access mode - AST reentrant 

: 40 9040 i AUTHOR: Bob Kushlis, CREATION DATE: February 7, 1978 

> 4 0042 1 MODIFIED BY: 

; rk $068 1! 

3; (44 4 1 ! 1-001 - Original. DJS byt: mb hn AP This module was created by 

; 645 Bee 1} eutvast ing routine EDT SFND BUF from module UTIL. 

:; 46 0 § 1 ! 1-002 - Regularized headers. JBS 25-Feb-1981 

; «6467 0047 1 ! 1-005 - Fix module name. JBS 11-Mar-1981 

; 6448 srk 1 ! 1-004 = Initialize more of the tbcb. STS 10-Mar-1982 

; 56 Ope : } 1-005 - Improve the appearance of the Listing. JBS 17-Jun-1983 

3; (51 0051 1 
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corer gurrcr EDTSUFBUFFER = find a buffer 18-Sep-1984 93 :39:1 ‘ 


Declarations _? ve 48 


Ped os Pa 
:CEDT.SRCJUFBUFFER.BLI;1 (2) 


3 ? § } SBTTL "Declarations' 
3 ‘ ¢ : TABLE OF CONTENTS: 

; 1 

; 8 037 : REQUIRE ‘EDTSRC: TRAROUNAM’; 
r4 60 9 1 FORWARD ROUTINE 

¢> 6) 498 1 EDTSSFND_BUF ; 

r 6¢ 1 

3% 6 500 1! 

: 64 2 1 1°! INCLUDE FILES: 

; § 1! 

> & 5 1 

4 67 504 1 REQUIRE ‘EDTSRC:EDTREQ'; 
;s wo 0639 1 

; 69 geet 1! 

3 70 1 1 =! MACROS: 

- so Bee¢ 1! 

3 Le: 0645 1! NONE 

3 7 Bete 124 

3 74 5 1 ! EQUATED SYMBOLS: 

. ers 0646 1! 

3 76 0647 1! NONE 

; 0648 1! 

4 78 0649 1 ! OWN STORAGE: 

: 79 0650 1! 

: 80 0651 1! NONE 

: 861 8926 1! 

4 8 065 1 ! EXTERNAL REFERENCES: 
"8s 0654 1! 

0655 1! In the routine 
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BBUF + tind a buffer i$: sep-1984 Mb3e 1g OTe dimGnaSTeRsCeDT sRCSUFBUFFER.BLIN;?” (33 
XSBTTL 'EDTSSFND_BUF - find a buffer’ 
Ly gure Eres Ae PC tte a 

en ! Length of that name 


+e 
FUNCTIONAL DESCRIPTION: 


This routine Sr. 4 a buffer with a specified name and positions 
into it. If a buf AQ. name eee not exist, then it is created. 
The global varteble eb 1eka A_PRV_BUF $s set to point to the TBCB 

of the buffer we were originally positioned in. 


FORMAL PARAMETERS: 


' 

i 

i 

i 

i 

i 

i 

i 

i 

i 

NAME Pointer to a string containing the name of the buffer. 
LEN Length of the name string. 
IMPLICIT INPUTS: 

EDTS$S$A_CUR_BUF 

IMPLICIT OUTPUTS: 

i EDTSS$A_CUR_BUF 

EDTS$A_PRV_BUF 

ROUTINE VALUE 

i Returns 1 if the buffer was found or created, 0 if an attempt to create a 
new buffer failed. 

SIDE EFFECTS: 

a May create a new buffer. 

ie 


BEGIN 


EXTERNAL ROUTINE 
EDTSSGET_BUFPTR, 
EDTSSNEW_BUF ; 


sree OT SSL -LNO_ZERO : 
EDTS$A_CUR_BUF : R 
EDTSSA_PRV_BUF : R 


LOCAL 
BUF _ADDR : REF TBCB_BLOCK, 
NEW; 


LN_BLOCK 
EF ~TBCB_BLOCK, ' Pointer to current buffer TBCB 
EF TBCB_BLOCK; i Pointer to previous buffer TBCB 


FND BUF = find a buffer 
Look for the buffer. 


-Sep-19 


EDTSUF BUFFER E 
Vb4=000 E 
; 143 
144 
dl EDTSSGET_BUFPTR (.NAME, .LEN, BUF_ADDR, NEW) 
BEGIN 
‘4 


i Position to the new buffer. 


EDTSSA_PRV_BUF = .EDTSS$A_CUR_BUF; 
EDTSSA_CUR_BUF = .BUF_ADBR; 


‘+ 
If the buffer was new, then open it up. 
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yrouerer - find a buffer 15-Sep-1984 93:39: 


18 VAX-11 Bliss-32 "sacs Page 4 
1 DISKSVMSMASTER: CEDT.SRCJUFBUFFER.BLI; (3) 


07 

0728 4 IF (.NEW NEQ 0) 

0729 3 THEN 

0730 4 BEGIN 

0731 4 BUF_ADDR Ci3CB_INPUT_RAB] = 0; 

0732 4 MOVELINE (EDi2®' LNO-ZERO, BUF_ADDR CTBCB_LINE_COUNT)); 

0733 4 EDTS$SNEW_BUF (); 

07 END; 

07 

07 RETURN (1); 

07 END 

073 LSE 

O75 RETURN (0); 

0741 1 END; ! of routine EDTSSFND_BUF 
TITLE 


EDTSUFBUFFER EDTSUFBUFFER - find a buffer 
\V04-000\ 


EDTSS$GET_BUFPTR 
EDTSSNEW BUF, EDTS$L_LNO_ ZERO 
EDTSSA_COR_BUF, EDTSSA_PRV_BUF 


-EDTSCODE ,NOWRT, SHR, PIC,2 


EDTSSFND BUF, Save R2,R3,R4,R5,R6 
EDTS$A_COR_BUF , R6 


BUF _ADDR 
NAME, =(SP) 
a4, pares 
EDTS$A_CUR_BUF, EDTSSA_PRV_BUF 
BUF ADDR 
RO, EDT$$A_CUR_BUF 
NEW 
1 
(R 


4 
is. T$$L_LNO ZERO, 24(RO) 
#1. 


) 
bTSShEW 80) 


Dna 


0658 


0716 


4,2,butter, 1boBeoctgee 1:58:18 yan yt aL iaee3 


50 be é Goce 2: CEA RO 


; Routine Size: 75 bytes, Routine Base: _EDTSCODE + 0000 
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~ the alae EDTSUFBUFFER = find a tuffer 16-Sep-1984 01:59:1 VAX-11 Bliss-32 er cart Page 6 
v04 EDTSSFND_BUF = find a buffer 1e-8ep-19 4 12:25:1 DISKSVMSMASTER: CEDT.SRCJUFBUFFER.BLI;1 (4) 
: 175 744 1 END ! of Le EDTSUFBUFFER 
7 i O43 } of module EDTSUFBU 
fem ty 746 O ELUDOM 
3 PSECT SUMMARY 
: Name Bytes Attributes 
: _EDTSCODE 75 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
3 Library Statistics 
; tend Symbols -co----- Pages Processing 
3 File Total Loaded Percent Mapped Time 
: _$255$DUA28:CEDT.SRCJEDT.L32;1 377 30 ? 40 00:00.2 
3 ~$255$DUA28:CEDT.SRCIPSECTS.L32;1 2 1 50 7 00:00.1 
; COMMAND QUALIFIERS 
, Pe La yg Meets ORAR. BNE TEAS, GP INE LEP IUOTRALEON AHL ESA4, LS Ul RUPP ER EROS IS WTO PER MSRC$: UFBUFFER.BLI/UPDATE=(ENHS$: UF BU 
Size: 75 code + 0 data bytes 


un Time 0:10.6 
dhe Time: 
Lines/CPU Min: thos 
: a eS 11808 
Y Used: 70 pages 
ree ation Complete 
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